﻿'########################################################
'#    Nom ......... : Logger.vb
'#    Auteur ...... : V.KULAK
'#    Licence ..... : GPLV3
'########################################################

Imports System.IO


Friend Class Logger

    Sub New(ByVal level As String, ByVal message As String)

        Dim w As StreamWriter = File.AppendText("CycleGest.log")
        w.Write(DateTime.Now() & " ## ---[" & level & "]--- ## " & message & ControlChars.CrLf)
        w.Close()
    End Sub



End Class
